home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / timetrak / printsel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.3 KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form printselect 
  3.    BackColor       =   &H0000FFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Print Selection"
  6.    ClientHeight    =   2910
  7.    ClientLeft      =   2700
  8.    ClientTop       =   2820
  9.    ClientWidth     =   2280
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00808000&
  12.    Height          =   3315
  13.    Left            =   2640
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    ScaleHeight     =   2910
  17.    ScaleWidth      =   2280
  18.    Top             =   2475
  19.    Width           =   2400
  20.    Begin CommandButton canbtn 
  21.       Caption         =   "Cancel"
  22.       Height          =   555
  23.       Left            =   1260
  24.       TabIndex        =   7
  25.       Top             =   2250
  26.       Width           =   870
  27.    End
  28.    Begin CommandButton okbtn 
  29.       Caption         =   "OK"
  30.       Default         =   -1  'True
  31.       Height          =   555
  32.       Left            =   180
  33.       TabIndex        =   6
  34.       Top             =   2250
  35.       Width           =   915
  36.    End
  37.    Begin Frame Frame2 
  38.       BackColor       =   &H0000FFFF&
  39.       Caption         =   "Print"
  40.       Height          =   915
  41.       Left            =   135
  42.       TabIndex        =   1
  43.       Top             =   1215
  44.       Width           =   1995
  45.       Begin OptionButton scrsel 
  46.          BackColor       =   &H0000FFFF&
  47.          Caption         =   "Screen"
  48.          ForeColor       =   &H00C00000&
  49.          Height          =   240
  50.          Left            =   45
  51.          TabIndex        =   4
  52.          Top             =   405
  53.          Width           =   915
  54.       End
  55.       Begin OptionButton prtsel 
  56.          BackColor       =   &H0000FFFF&
  57.          Caption         =   "Printer"
  58.          ForeColor       =   &H00C00000&
  59.          Height          =   330
  60.          Left            =   1035
  61.          TabIndex        =   5
  62.          Top             =   360
  63.          Width           =   915
  64.       End
  65.    End
  66.    Begin Frame Frame1 
  67.       BackColor       =   &H0000FFFF&
  68.       Caption         =   "Project"
  69.       Height          =   915
  70.       Left            =   135
  71.       TabIndex        =   0
  72.       Top             =   90
  73.       Width           =   1995
  74.       Begin OptionButton oneproj 
  75.          BackColor       =   &H0000FFFF&
  76.          Caption         =   "One"
  77.          ForeColor       =   &H00C00000&
  78.          Height          =   240
  79.          Left            =   225
  80.          TabIndex        =   2
  81.          Top             =   450
  82.          Width           =   690
  83.       End
  84.       Begin OptionButton allproj 
  85.          BackColor       =   &H0000FFFF&
  86.          Caption         =   "All"
  87.          ForeColor       =   &H00C00000&
  88.          Height          =   330
  89.          Left            =   1170
  90.          TabIndex        =   3
  91.          Top             =   405
  92.          Width           =   600
  93.       End
  94.    End
  95. Sub allproj_Click ()
  96.     projFlag = 2
  97. End Sub
  98. Sub canbtn_Click ()
  99.     Unload printselect
  100. End Sub
  101. Sub Form_Load ()
  102.     oneproj.value = -1
  103.     scrsel.value = -1
  104.     projFlag = 1
  105.     printflag = 1
  106. End Sub
  107. Sub okbtn_Click ()
  108.     screen.mousepointer = 11
  109.     Load report1
  110. End Sub
  111. Sub oneproj_Click ()
  112.     projFlag = 1
  113. End Sub
  114. Sub prtsel_Click ()
  115.     printflag = 2
  116. End Sub
  117. Sub scrsel_Click ()
  118.     printflag = 1
  119. End Sub
  120.